From 1a8bbb2f9b254264af3c8c0ec289d5f00cf0ec97 Mon Sep 17 00:00:00 2001
From: Ken Raeburn <raeburn@raeburn.org>
Date: Thu, 8 Aug 2002 16:59:15 +0000
Subject: [PATCH] (Ffind_operation_coding_system): Fix Lisp_Object/int mixup.

---
 src/coding.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/coding.c b/src/coding.c
index 952fc1408f5..57d7e4b21fd 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -6884,7 +6884,7 @@ usage: (find-operation-coding-system OPERATION ARGUMENTS ...)  */)
   if (EQ (operation, Qwrite_region)
       && nargs > 5
       && STRINGP (args[5]))
-    target_idx = 4;
+    target_idx = make_number (4);
   target = args[XINT (target_idx) + 1];
   if (!(STRINGP (target)
 	|| (EQ (operation, Qopen_network_stream) && INTEGERP (target))))
-- 
2.30.2